home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48hor1 / pyth.src < prev    next >
Text File  |  1990-10-18  |  459b  |  23 lines
  1. %%HP: T(3)A(D)F(.);
  2. @ by Joe Horn
  3. DIR
  4.   PYTH @ x,y -> { A B C }.
  5.     \<< DUP2
  6.       IF <
  7.       THEN SWAP
  8.       END R\->C SQ DUP ABS SWAP C\->R ROT 3 \->LIST
  9.     \>>
  10.   GCD  @ Greatest Common Divisor; x,y -> gcd.
  11.     \<<
  12.       WHILE OVER MOD SWAP DUP
  13.       REPEAT
  14.       END DROP
  15.     \>>
  16.   LCM @ Least Common Multiple; x,y -> lcm.
  17.     \<< DUP2 GCD / *
  18.     \>>
  19.   RDC @ Reduce; x1,y1 -> x2,y2.
  20.     \<< R\->C DUP C\->R GCD / C\->R
  21.     \>>
  22. END
  23.